home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / K-L / LaserPrtHC.cpt / LP for QPS demo / card_17573.txt < prev    next >
Text File  |  1990-03-26  |  13KB  |  491 lines
  1. -- card: 17573 from stack: in
  2. -- bmap block id: 17992
  3. -- flags: 0000
  4. -- background id: 11983
  5. -- name: Name Cards
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set the cursor to 4
  9.   AddStyleName
  10.   AddStyleTitle
  11.   if charToNum of cd fld Name < 33 then
  12.     put "Name" into cd fld Name
  13.   end if
  14.   if charToNum of cd fld Title < 33 then
  15.     put "Title" into cd fld Title
  16.   end if
  17. end openCard
  18.  
  19. on AddStyleName
  20.   set the cursor to 4
  21.   global FontName,FontTitle
  22.   put the short name of cd btn id 17 into FontTempName
  23.   put the short name of cd btn id 21 into FontTempTitle
  24.   put the short name of cd btn id 22 into StyleName
  25.   put the short name of cd btn id 23 into StyleTitle
  26.   if FontTempName = "Helvetica" then
  27.     set the textfont of cd fld Name to Helvetica
  28.     if Stylename = "Plain" then
  29.       put "Helvetica" into FontName
  30.       set the textstyle of cd field Name to "Plain"
  31.     else
  32.       if StyleName = "Bold" then
  33.         put "Helvetica-Bold" into FontName
  34.         set the textstyle of cd field Name to "Bold"
  35.       else
  36.         if StyleName = "Italic" then
  37.           put "Helvetica-Oblique" into FontName
  38.           set the textstyle of cd field Name to "Italic"
  39.         else
  40.           if StyleName = "Bold & Italic" then
  41.             put "Helvetica-BoldOblique" into FontName
  42.             set the textstyle of cd field Name to Bold,Italic
  43.           else
  44.             exit to HyperCard
  45.           end if
  46.         end if
  47.       end if
  48.     end if
  49.   end if
  50.   if FontTempName = "Helvetica Narrow" then
  51.     set the textfont of cd fld Name to "N Helvetica Narrow"
  52.     if Stylename = "Plain" then
  53.       put "Helvetica-Narrow" into FontName
  54.       set the textstyle of cd fld Name to Plain
  55.     else
  56.       if StyleName = "Bold" then
  57.         put "Helvetica-Narrow-Bold" into FontName
  58.         set the textstyle of cd fld Name to Bold
  59.       else
  60.         if StyleName = "Italic" then
  61.           put "Helvetica-Narrow-Oblique" into FontName
  62.           set the textstyle of cd fld Name to Italic
  63.         else
  64.           if StyleName = "Bold & Italic" then
  65.             Answer"That combination is not available."
  66.             set the name of cd btn id 22 to "Plain"
  67.             set the textstyle of cd fld Name to "Plain"
  68.           else
  69.             exit to HyperCard
  70.           end if
  71.         end if
  72.       end if
  73.     end if
  74.   end if
  75.   if FontTempName = "Palatino" then
  76.     set the textfont of cd fld Name to Palatino
  77.     if Stylename = "Plain" then
  78.       put "Palatino" into FontName
  79.       set the textstyle of cd fld Name to Plain
  80.     else
  81.       if StyleName = "Bold" then
  82.         put "Palatino-Bold" into FontName
  83.         set the textstyle of cd fld Name to Bold
  84.       else
  85.         if StyleName = "Italic" then
  86.           put "Palatino-Italic" into FontName
  87.           set the textstyle of cd fld Name to Italic
  88.         else
  89.           if StyleName = "Bold & Italic" then
  90.             put "Palatino-BoldItalic" into FontName
  91.             set the textstyle of cd fld Name to Bold,Italic
  92.           end if
  93.         end if
  94.       end if
  95.     end if
  96.   end if
  97.   if FontTempName = "Times" then
  98.     set the textfont of cd fld Name to "Times"
  99.     if Stylename = "Plain" then
  100.       put "Times" into FontName
  101.       set the textstyle of cd fld Name to Plain
  102.     else
  103.       if StyleName = "Bold" then
  104.         put "Times-Bold" into FontName
  105.         set the textstyle of cd fld Name to Bold
  106.       else
  107.         if StyleName = "Italic" then
  108.           put "Times-Italic" into FontName
  109.           set the textstyle of cd fld Name to Italic
  110.         else
  111.           if StyleName = "Bold & Italic" then
  112.             put "Times-BoldItalic" into FontName
  113.             set the textstyle of cd fld Name to Bold,Italic
  114.           end if
  115.         end if
  116.       end if
  117.     end if
  118.   end if
  119.   if FontTempName = "Zapf Chancery" then
  120.     if StyleName ‚↠"Italic" then
  121.       Answer "That combination is not available."
  122.       set the name of cd btn id 22 to "Italic"
  123.     end if
  124.     set the textfont of cd fld Name to "Zapf Chancery"
  125.     put "ZapfChancery-MediumItalic" into Fontname
  126.   end if
  127. end AddStyleName
  128.  
  129. on AddStyleTitle
  130.   set the cursor to 4
  131.   global FontTitle
  132.   put the short name of cd btn id 17 into FontTempName
  133.   put the short name of cd btn id 21 into FontTempTitle
  134.   put the short name of cd btn id 22 into StyleName
  135.   put the short name of cd btn id 23 into StyleTitle
  136.   if FontTempTitle = "Helvetica" then
  137.     set the textfont of cd fld Title to Helvetica
  138.     if StyleTitle = "Plain" then
  139.       put "Helvetica" into FontTitle
  140.       set the textstyle of cd field Title to "Plain"
  141.     else
  142.       if StyleTitle = "Bold" then
  143.         put "Helvetica-Bold" into FontTitle
  144.         set the textstyle of cd field Title to "Bold"
  145.       else
  146.         if StyleTitle = "Italic" then
  147.           put "Helvetica-Oblique" into FontTitle
  148.           set the textstyle of cd field Title to "Italic"
  149.         else
  150.           if StyleTitle = "Bold & Italic" then
  151.             put "Helvetica-BoldOblique" into FontTitle
  152.             set the textstyle of cd field Title to Bold,Italic
  153.           else
  154.             exit to HyperCard
  155.           end if
  156.         end if
  157.       end if
  158.     end if
  159.   end if
  160.   if FontTempTitle = "Helvetica Narrow" then
  161.     set the textfont of cd fld Title to "N Helvetica Narrow"
  162.     if StyleTitle = "Plain" then
  163.       put "Helvetica-Narrow" into FontTitle
  164.       set the textstyle of cd fld Title to Plain
  165.     else
  166.       if StyleTitle = "Bold" then
  167.         put "Helvetica-Narrow-Bold" into FontTitle
  168.         set the textstyle of cd fld Title to Bold
  169.       else
  170.         if StyleTitle = "Italic" then
  171.           put "Helvetica-Narrow-Oblique" into FontTitle
  172.           set the textstyle of cd fld Title to Italic
  173.         else
  174.           if StyleTitle = "Bold & Italic" then
  175.             Answer"That combination is not available."
  176.             set the name of cd btn id 23 to "Plain"
  177.             set the textstyle of cd fld Title to "Plain"
  178.           else
  179.             exit to HyperCard
  180.           end if
  181.         end if
  182.       end if
  183.     end if
  184.   end if
  185.   if FontTempTitle = "Palatino" then
  186.     set the textfont of cd fld Title to Palatino
  187.     if StyleTitle = "Plain" then
  188.       put "Palatino" into FontTitle
  189.       set the textstyle of cd fld Title to Plain
  190.     else
  191.       if StyleTitle = "Bold" then
  192.         put "Palatino-Bold" into FontTitle
  193.         set the textstyle of cd fld Title to Bold
  194.       else
  195.         if StyleTitle = "Italic" then
  196.           put "Palatino-Italic" into FontTitle
  197.           set the textstyle of cd fld Title to Italic
  198.         else
  199.           if StyleTitle = "Bold & Italic" then
  200.             put "Palatino-BoldItalic" into FontTitle
  201.             set the textstyle of cd fld Title to Bold,Italic
  202.           end if
  203.         end if
  204.       end if
  205.     end if
  206.   end if
  207.   if FontTempTitle = "Times" then
  208.     set the textfont of cd fld Title to "Times"
  209.     if StyleTitle = "Plain" then
  210.       put "Times" into FontTitle
  211.       set the textstyle of cd fld Title to Plain
  212.     else
  213.       if StyleTitle = "Bold" then
  214.         put "Times-Bold" into FontTitle
  215.         set the textstyle of cd fld Title to Bold
  216.       else
  217.         if StyleTitle = "Italic" then
  218.           put "Times-Italic" into FontTitle
  219.           set the textstyle of cd fld Title to Italic
  220.         else
  221.           if StyleTitle = "Bold & Italic" then
  222.             put "Times-BoldItalic" into FontTitle
  223.             set the textstyle of cd fld Title to Bold,Italic
  224.           end if
  225.         end if
  226.       end if
  227.     end if
  228.   end if
  229.   if FontTempTitle = "Zapf Chancery" then
  230.     if StyleTitle ‚↠"Italic" then
  231.       Answer "That combination is not available."
  232.       set the name of cd btn id 23 to "Italic"
  233.     end if
  234.     set the textfont of cd fld Title to "Zapf Chancery"
  235.     put "ZapfChancery-MediumItalic" into FontTitle
  236.   end if
  237. end AddStyleTitle
  238.  
  239.  
  240.  
  241.  
  242. -- part 1 (field)
  243. -- low flags: 00
  244. -- high flags: 4000
  245. -- rect: left=90 top=114 right=155 bottom=407
  246. -- title width / last selected line: 0
  247. -- icon id / first selected line: 0 / 0
  248. -- text alignment: 1
  249. -- font id: 20
  250. -- text size: 24
  251. -- style flags: 256
  252. -- line height: 32
  253. -- part name: Name
  254.  
  255.  
  256. -- part 3 (field)
  257. -- low flags: 00
  258. -- high flags: 4000
  259. -- rect: left=89 top=158 right=191 bottom=406
  260. -- title width / last selected line: 0
  261. -- icon id / first selected line: 0 / 0
  262. -- text alignment: 1
  263. -- font id: 18
  264. -- text size: 24
  265. -- style flags: 512
  266. -- line height: 32
  267. -- part name: Title
  268.  
  269.  
  270. -- part 17 (button)
  271. -- low flags: 00
  272. -- high flags: 8004
  273. -- rect: left=39 top=246 right=265 bottom=128
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 3
  278. -- text size: 9
  279. -- style flags: 0
  280. -- line height: 12
  281. -- part name: Times
  282. ----- HyperTalk script -----
  283. on mouseDown
  284.   play "Click"
  285.   select text of cd fld Name
  286.   Get TKpopMenu(Font)
  287.   if it = "" then exit mouseDown
  288.   put item 1 of it into theMenu
  289.   put item 2 of it into theItem
  290.   if theItem= "Helvetica" then
  291.     set the name of cd button id 17 to "Helvetica"
  292.     AddStyleName
  293.   else
  294.     if theItem = "Helvetica Narrow" then
  295.       set the name of cd button id 17 to "Helvetica Narrow"
  296.       AddStyleName
  297.     else
  298.       if theItem= "Palatino" then
  299.         set the name of cd button id 17 to "Palatino"
  300.         AddStyleName
  301.       else
  302.         if theItem= "Times" then
  303.           set the name of cd button id 17 to "Times"
  304.           AddStyleName
  305.         else
  306.           if theItem= "Zapf Chancery" then
  307.             set the name of cd button id 17 to "Zapf Chancery"
  308.             AddStyleName
  309.           end if
  310.         end if
  311.       end if
  312.     end if
  313.   end if
  314. end mouseDown
  315.  
  316. on mouseUp
  317.   click at 600,600
  318.   --unhighlights field if no choice was made
  319. end mouseUp
  320.  
  321.  
  322.  
  323. -- part 21 (button)
  324. -- low flags: 00
  325. -- high flags: 8004
  326. -- rect: left=271 top=247 right=266 bottom=360
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 3
  331. -- text size: 9
  332. -- style flags: 0
  333. -- line height: 12
  334. -- part name: Zapf Chancery
  335. ----- HyperTalk script -----
  336. on mouseDown
  337.   play "Click"
  338.   select text of cd fld Title
  339.   Get TKpopMenu(Font)
  340.   if it = "" then exit mouseDown
  341.   put item 1 of it into theMenu
  342.   put item 2 of it into theItem
  343.  
  344.   if theItem= "Helvetica" then
  345.     set the name of cd button id 21 to "Helvetica"
  346.     AddStyleTitle
  347.   else
  348.     if theItem = "Helvetica Narrow" then
  349.       set the name of cd button id 21 to "Helvetica Narrow"
  350.       AddStyleTitle
  351.     else
  352.       if theItem= "Palatino" then
  353.         set the name of cd button id 21 to "Palatino"
  354.         AddStyleTitle
  355.       else
  356.         if theItem= "Times" then
  357.           set the name of cd button id 21 to "Times"
  358.           AddStyleTitle
  359.         else
  360.           if theItem= "Zapf Chancery" then
  361.             set the name of cd button id 21 to "Zapf Chancery"
  362.             AddStyleTitle
  363.           end if
  364.         end if
  365.       end if
  366.     end if
  367.   end if
  368. end mouseDown
  369.  
  370. on mouseUp
  371.   click at 600,600
  372.   --unhighlights field if no choice was made
  373. end mouseUp
  374.  
  375.  
  376.  
  377. -- part 22 (button)
  378. -- low flags: 00
  379. -- high flags: 8004
  380. -- rect: left=134 top=246 right=265 bottom=223
  381. -- title width / last selected line: 0
  382. -- icon id / first selected line: 0 / 0
  383. -- text alignment: 1
  384. -- font id: 3
  385. -- text size: 9
  386. -- style flags: 0
  387. -- line height: 12
  388. -- part name: Bold
  389. ----- HyperTalk script -----
  390. on mouseDown
  391.   Global Fontname
  392.   play "Click"
  393.   select text of cd fld Name
  394.   Get TKpopMenu(Style)
  395.   if it = "" then exit mouseDown
  396.   put item 1 of it into theMenu
  397.   put item 2 of it into theItem
  398.  
  399.   if theItem= "Bold" then
  400.     set the name of cd button id 22 to "Bold"
  401.     AddStyleName
  402.   else
  403.     if theItem = "Plain" then
  404.       set the name of cd button id 22 to "Plain"
  405.       AddStyleName
  406.     else
  407.       if theItem= "Italic" then
  408.         set the name of cd button id 22 to "Italic"
  409.         AddStyleName
  410.       else
  411.         if theItem= "Bold & Italic" then
  412.           set the name of cd button id 22 to "Bold & Italic"
  413.           AddStyleName
  414.         else
  415.         end if
  416.       end if
  417.     end if
  418.   end if
  419. end mouseDown
  420.  
  421. on mouseUp
  422.   click at 600,600
  423.   --unhighlights field if no choice was made
  424. end mouseUp
  425.  
  426.  
  427.  
  428.  
  429. -- part 23 (button)
  430. -- low flags: 00
  431. -- high flags: 8004
  432. -- rect: left=366 top=247 right=266 bottom=455
  433. -- title width / last selected line: 0
  434. -- icon id / first selected line: 0 / 0
  435. -- text alignment: 1
  436. -- font id: 3
  437. -- text size: 9
  438. -- style flags: 0
  439. -- line height: 12
  440. -- part name: Italic
  441. ----- HyperTalk script -----
  442. on mouseDown
  443.   Global FontTitle
  444.   play "Click"
  445.   select text of cd fld Title
  446.   Get TKpopMenu(Style)
  447.   if it = "" then exit mouseDown
  448.   put item 1 of it into theMenu
  449.   put item 2 of it into theItem
  450.  
  451.   if theItem= "Bold" then
  452.     set the name of cd button id 23 to "Bold"
  453.     AddStyleTitle
  454.   else
  455.     if theItem = "Plain" then
  456.       set the name of cd button id 23 to "Plain"
  457.       AddStyleTitle
  458.     else
  459.       if theItem= "Italic" then
  460.         set the name of cd button id 23 to "Italic"
  461.         AddStyleTitle
  462.       else
  463.         if theItem= "Bold & Italic" then
  464.           set the name of cd button id 23 to "Bold & Italic"
  465.           AddStyleTitle
  466.         else
  467.         end if
  468.       end if
  469.     end if
  470.   end if
  471. end mouseDown
  472.  
  473. on mouseUp
  474.   click at 600,600
  475.   --unhighlights field if no choice was made
  476. end mouseUp
  477.  
  478.  
  479.  
  480.  
  481. -- part contents for background part 4
  482. ----- text -----
  483. Name Cards
  484.  
  485. -- part contents for card part 1
  486. ----- text -----
  487. Name
  488.  
  489. -- part contents for card part 3
  490. ----- text -----
  491. Title